705604096_stats102a_hw1

Problem 1

1. GCD Function

gcd flowchart

gcd(72, 8)

## [1] 8

gcd(-1, 531)

## [1] 1

gcd(47011, 73618)

## [1] 1

2. LCM Function

LCM Flowchart

lcm(c(12, 21))

## [1] 3
## [1] 84

lcm(c(4789, 6123, 199))

## [1] 1
## [1] 1
## [1] 5835286353

Problem 2

1. is_prime Function

is_prime Flowchart

is_prime(c(9, 7, 1))

## [1] FALSE  TRUE FALSE

2. get_factors Function

get_factors Flowchart

get_factors(1920)

## [1] TRUE
## [1] TRUE
## [1] FALSE
## [1] TRUE
## [1] FALSE
## [1] FALSE
## [1] FALSE
## [1] FALSE
## [1] FALSE
## [1] FALSE
## [1] FALSE
## [1] FALSE
## [1] FALSE
## [1] FALSE
## [1] FALSE
## [1] FALSE
## [1] FALSE
## [1] FALSE
## [1] FALSE
## [1] FALSE
## [1] FALSE
## [1] FALSE
## [1] FALSE
## [1] FALSE
## [1] FALSE
## [1] FALSE
## [1] FALSE
## [1] FALSE
## [1] FALSE
## [1] FALSE
## [1] FALSE
## $primes
## [1] 2 3 5
## 
## $exponents
## [1] 43.817805 12.428930  4.535866